home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / lzexpand.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-09  |  3.3 KB  |  86 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Run-time Library                         }
  5. {       Windows 32bit API Interface Unit                }
  6. {                                                       }
  7. {       Copyright (c) 1996,98 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit LZExpand;
  12.  
  13. {$WEAKPACKAGEUNIT}
  14.  
  15. {$HPPEMIT '#include <lzexpand.h>'}
  16.  
  17. interface
  18.  
  19. uses Windows;
  20.  
  21. { Error Return Codes }
  22.  
  23. const
  24.   {$EXTERNALSYM LZERROR_BADINHANDLE}
  25.   LZERROR_BADINHANDLE = -1;         { invalid input handle }
  26.   {$EXTERNALSYM LZERROR_BADOUTHANDLE}
  27.   LZERROR_BADOUTHANDLE = -2;        { invalid output handle }
  28.   {$EXTERNALSYM LZERROR_READ}
  29.   LZERROR_READ = -3;                { corrupt compressed file format }
  30.   {$EXTERNALSYM LZERROR_WRITE}
  31.   LZERROR_WRITE = -4;               { out of space for output file }
  32.   {$EXTERNALSYM LZERROR_GLOBALLOC}
  33.   LZERROR_GLOBALLOC = -5;           { insufficient memory for LZFile struct }
  34.   {$EXTERNALSYM LZERROR_GLOBLOCK}
  35.   LZERROR_GLOBLOCK = -6;            { bad global handle }
  36.   {$EXTERNALSYM LZERROR_BADVALUE}
  37.   LZERROR_BADVALUE = -7;            { input parameter out of acceptable range }
  38.   {$EXTERNALSYM LZERROR_UNKNOWNALG}
  39.   LZERROR_UNKNOWNALG = -8;          { compression algorithm not recognized }
  40.  
  41.  
  42. { Prototypes }
  43.  
  44. {$EXTERNALSYM LZCopy}
  45. function LZCopy(Source, Dest: Integer): Longint; stdcall;
  46. {$EXTERNALSYM LZInit}
  47. function LZInit(Source: Integer): Integer; stdcall;
  48. {$EXTERNALSYM GetExpandedNameA}
  49. function GetExpandedNameA(Source, Buffer: PAnsiChar): Integer; stdcall;
  50. {$EXTERNALSYM GetExpandedNameW}
  51. function GetExpandedNameW(Source, Buffer: PWideChar): Integer; stdcall;
  52. {$EXTERNALSYM GetExpandedName}
  53. function GetExpandedName(Source, Buffer: PChar): Integer; stdcall;
  54. {$EXTERNALSYM LZOpenFileA}
  55. function LZOpenFileA(Filename: PAnsiChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  56. {$EXTERNALSYM LZOpenFileW}
  57. function LZOpenFileW(Filename: PWideChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  58. {$EXTERNALSYM LZOpenFile}
  59. function LZOpenFile(Filename: PChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  60. {$EXTERNALSYM LZSeek}
  61. function LZSeek(hFile: Integer; Offset: Longint; Origin: Integer): Longint; stdcall;
  62. {$EXTERNALSYM LZRead}
  63. function LZRead(hFile: Integer; Buffer: LPSTR; Count: Integer): Integer; stdcall;
  64. {$EXTERNALSYM LZClose}
  65. procedure LZClose(hFile: Integer); stdcall;
  66.  
  67.  
  68. implementation
  69.  
  70. const
  71.   lz32 = 'LZ32.DLL';
  72.  
  73. function GetExpandedNameA;    external lz32 name 'GetExpandedNameA';
  74. function GetExpandedNameW;    external lz32 name 'GetExpandedNameW';
  75. function GetExpandedName;    external lz32 name 'GetExpandedNameA';
  76. procedure LZClose;              external lz32 name 'LZClose';
  77. function LZCopy;                external lz32 name 'LZCopy';
  78. function LZInit;                external lz32 name 'LZInit';
  79. function LZOpenFileA;         external lz32 name 'LZOpenFileA';
  80. function LZOpenFileW;         external lz32 name 'LZOpenFileW';
  81. function LZOpenFile;         external lz32 name 'LZOpenFileA';
  82. function LZRead;                external lz32 name 'LZRead';
  83. function LZSeek;                external lz32 name 'LZSeek';
  84.  
  85. end.
  86.